10 DV=PEEK(186):IFDV<8THENDV=8 50 POKE53280,0:POKE53281,10:POKE646,2:POKE53272,31 60 : 70 REM TITLE SCREEN 80 : 90 PRINT"[147][172][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][187]"; 100 PRINT"[161][146] [161]"; 110 PRINT"[161][146][144] [172][187][172][187][172][187][172][187][172][187][172][162][162][187][172][187][172][187][172][162][162][187][172][162][162][187][172][187][160] [161]"; 120 PRINT"[161][146][144] [161][146][161][161][146][161][161][188][161][146][161][161][146][161][161][146][161][188][190][161][146][161][161][146][161] [161][146][161] [161][146][161][188][190] [161] [161]"; 130 PRINT"[161][146][144] [161][188][190][146][190][161] [146][161][161][146][161][161][146][161][162][187][161][188][190][146][161] [161][146][161] [161][188][146][162][187] [161]"; 140 PRINT"[161][146][144] [161][146][161][161][146][161][161][172] [146][161][161][146][161][161][146][161][161][146][161][161][146][161][161][146][161] [161][146][161] [161][146][161] [161]"; 150 PRINT"[161][146][144] [161][146][161][161][146][161][161][146][161][161][146][161][161][146][161][161][188][190][146][161][161][146][161][161][146][161] [161][146][161] [161][188][190][146][161] [161]"; 160 PRINT"[161][146][144] [172][162][162][187][172][187][172][187][172][162][162][187][172][162][162] [172][162][162][187][172][187][172][187] [172][187] [172][162][162][187] [161]"; 170 PRINT"[161][146][144] ";:FORI=1TO12:PRINT"[161][146][161]";:NEXT:PRINT" [161][146][161] [161][146][161][188][190] [161]"; 180 PRINT"[161][146][144] [161][146][161][161][146][161][161][146][161][161][146][161][161][188][190][146][161][161][146][161][161][146][161][161][188][190][146][190][161][146][161][161][146][161] [161][146][161] [161][188][146][162] [160][161]"; 190 PRINT"[161][146][144] ";:FORI=1TO12:PRINT"[161][146][161]";:NEXT:PRINT" [161][146][161] [161][146][161][160] [161]"; 200 PRINT"[161][146][144] [161][188][190][188][146][161][188][190][146][161][161][146][161][161][146][161][161][188][190][146][190][161][146][161][161][146][161][161][146][161][161][188][190][146][161][161][188][190][146][161][161][188][190][146][161] [161]"; 210 PRINT"[161][146][144] [161]"; 220 PRINT"[161][146][144] [176][178][178][174][144][176][174][176][174][176][178][178][174][144][176][178][178][174][176][178][178][174] [161]"; 230 PRINT"[161][146] [221][221][173][189][144][221][221][221][221][221][221][173][189][144][221][221][173][189][221][221][173][189] [161]"; 240 PRINT"[161][146] [221][221] [144][221][171][179][221][221][171][192] [144][173][177][178][174][173][177][178][174] [161]"; 250 PRINT"[161][146] [221][221][176][174][144][221][221][221][221][221][221][176][174][144][176][174][221][221][176][174][221][221] [161]"; 260 PRINT"[161][146] [173][177][177][189][144][173][189][173][189][173][177][177][189][144][173][177][177][189][173][177][177][189] [161]"; 270 PRINT"[161][146][144] [176][178][178][174][176][174][176][174][144][176][178][178][174][176][178][178][174][144][176][174] [176][178][178][174][144] [161]"; 280 PRINT"[161][146][144] [221][221][221][221][221][221][221][221][144][173][189][221][221][173][189][221][221][144][221][221] [221][221][173][189][144] [161]"; 290 PRINT"[161][146][144] [221][171][177][189][221][221][221][221][144][176][178][177][189][176][178][177][189][144][221][221] [221][171][192] [144] [161]"; 300 PRINT"[161][146][144] [221][221] [221][221][221][221][144][221][221][176][174][221][221][176][174][144][221][221][176][174][221][221][176][174][144] [161]"; 310 PRINT"[161][146][144] [173][189] [173][177][177][189][144][173][177][177][189][173][177][177][189][144][173][177][177][189][173][177][177][189][144] [161]"; 320 PRINT"[161][146] [161]"; 330 PRINT"[188][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][146]";:POKE2023,126 340 TQ=0:POKE53370,0 342 TQ=TQ+1:GETA$:IFA$=""ANDTQ<100THEN342 344 POKE53371,0 350 POKE53280,0:POKE53281,10:GOSUB1400 352 DV=PEEK(186):IFDV<8THENDV=8 360 : 370 REM INSTRUCTION SCREEN 380 : 390 PRINT"[147][144] [212]O BEGIN, TWO WHITE KNIGHTS OCCUPY THE 400 [153]" UPPER CORNERS WHILE TWO BLACK KNIGHTS 410 PRINT" OCCUPY THE LOWER CORNERS OF A FOUR BY 420 [153]" THREE CHESSBOARD GRID. 430 PRINT" [176][192][192][192][192][178][192][192][192][192][178][192][192][192][192][174] [212]HE GOAL IS TO FINISH 440 [153]" (null) (null) (null) (null) THE GAME WITH THE TWO 450 PRINT" [221] [221] [221] [221] BLACK KNIGHTS IN THE 460 [153]" (null) (null) (null) (null) UPPER CORNERS AND THE 470 PRINT" [171][192][192][192][192][219][192][192][192][192][219][192][192][192][192][179] TWO WHITE KNIGHTS IN 480 [153]" (null) (null) (null) (null) THE LOWER CORNERS. 490 PRINT" [221] [221] [221] [221] 500 [153]" (null) (null) (null) (null) (null)HE FOUR KNIGHTS MOVE 510 PRINT" [171][192][192][192][192][219][192][192][192][192][219][192][192][192][192][179] AS IN THE NORMAL GAME 520 [153]" (null) (null) (null) (null) OF CHESS. (null)OCATED IN 530 PRINT" [221] [221] [221] [221] THE CENTER PORTION OF 540 [153]" (null) (null) (null) (null) THE GAMEBOARD ARE TWO 550 PRINT" [171][192][192][192][192][219][192][192][192][192][219][192][192][192][192][179] KINGS WHO DO NOT MOVE 560 [153]" (null) (null) (null) (null) AT ALL. 570 PRINT" [221] [221] [221] [221] 580 [153]" (null) (null) (null) (null) (null)ELECT (1) TO TRY THE 590 PRINT" [173][192][192][192][192][177][192][192][192][192][177][192][192][192][192][189] PUZZLE UNASSISTED AND 600 [153]" (2) FOR THE COMPUTER DEMONSTRATION. "; 610 [151]S[170]2,44:[151]S[170]3,108:[151]S[170]4,124:[151]S[170]5,108:[151]S[170]6,44:[151]S[170]7,204 620 [151]S[170]8,124:[151]S[170]9,204:[151]S[170]10,84:[151]S[170]11,140:[151]S[170]12,84:[151]S[170]13,172 630 [151]S[170]29,0:[151]S[170]23,0:[151]S[170]21,126 632 [151]204,0:[151]207,0 634 [161]A$:[139]A$[179]"1"[176]A$[177]"2"[167]632 636 CM[178]0:[139]A$[178]"2"[167]CM[178]1 638 [151]S[170]21,0:[151]204,1 640 : 650 [143] SET VARIABLES 660 : 670 [134] F(20),T(20):M[178]1:MP[178]1089:S$[178]" " 680 [129]I[178]1[164]20:[135]N$:F$[178][200](N$,1):F(I)[178][198](F$)[171]64 690 T$[178][201](N$,1):T(I)[178][198](T$)[171]64:[130] 700 [129]I[178]1[164]10:S(I)[178]0:[130]:S(1)[178]1:S(3)[178]2:S(8)[178]3:S(6)[178]4 710 [129]I[178]1[164]10:[135]X(I),Y(I):[130] 720 : 730 [143] GAMEBOARD SCREEN 740 : 750 [153]"LOAD";:[151]53281,0:[151]53280,10:[151]646,10 760 [153]"CONT (null)RESS (null) TO (null)UIT DEF WAIT ASC(null)(null)(null) (null)(null) ASC(null)(null)(null) (null)(null)" 770 [153]" DEFORTANTANTANTAN=TANTANTANTAN=TANTANTANTAN^  " 772 [129]I[178]1[164]3 774 [129]J[178]1[164]3:[153]" DEF(null) DEFWAIT(null) DEFWAIT(null) DEFWAIT(null)  ":[130] 790 [153]" DEF-TANTANTANTAN(null)TANTANTANTAN(null)TANTANTANTAN<  ":[130] 840 [129]J[178]1[164]3:[153]" DEF(null) DEFWAIT(null) DEFWAIT(null) DEFWAIT(null)  ":[130] 850 [153]"DEF /TANTANTANTAN>TANTANTANTAN>TANTANTANTANEXP  " 860 [153]"  WAIT" 870 [129]I[178]1[164]5:[153]"  WAIT":[130] 872 [151]214,1:[153]:[153][163]3)"ATNPEEKLEN 874 PRINTTAB(3)"[202][196] 876 [153][163]3)"RIGHT$VAL 878 PRINTTAB(3)"[200][199][198] 880 P[178]1787:[141]1580:[153]"CONT(null)OVE (null)UMBER:" 890 P[178]1984:[141]1580:[153]"DEF CHR$OAL: PEEK(null)ATNLEN(null) ON (null)(null)(null) / (null)LEFT$RIGHT$(null)VAL AT PEEK(null)(null)(null)(null)(null) CMDSAVE " 900 : 910 [143] POSITION/ACTIVATE SPRITES 920 : 930 S[178]53248:[151]S[170]2,52:[151]S[170]3,68:[151]S[170]4,132:[151]S[170]5,68:[151]S[170]6,52:[151]S[170]7,164 940 [151]S[170]8,132:[151]S[170]9,164:[151]S[170]10,92:[151]S[170]11,100:[151]S[170]12,92:[151]S[170]13,132 950 [151]S[170]21,126 960 : 970 [143] PLAYER MOVE 980 : 990 P[178]1799:[141]1580:[153]""M:[139]CM[178]1[167]1180 1000 [151]198,0:P[178]1824:[141]1580:[153]S$;:P[178]1864:[141]1580:[153]S$; 1010 P[178]1828:[141]1580:[153]"CONT(null)OVE ASCROM: CMD";:[141]1470:F$[178]G$ 1020 F[178][198](F$)[171]64:[139]F[179]1[176]F[177]10[167]1090 1030 [151]198,0:P[178]1864:[141]1580:[153]S$; 1040 P[178]1869:[141]1580:[153]"CONT(null)OVE (null)O: CMD";:[141]1470:T$[178]G$ 1050 T[178][198](T$)[171]64:[139]T[179]1[176]T[177]10[167]1090 1060 [139]S(F)[178]0[176]S(T)[179][177]0[167]1090 1070 FL[178]0:[129]I[178]1[164]20:[139]F[178]F(I)[175]T[178]T(I)[167]FL[178]1:I[178]21 1080 [130]I:[139]FL[178]1[167]1110 1090 P[178]1864:[141]1580:[153]" (null)OVE (null)OT (null)OSSIBLE!"; 1092 [151]53370,0:[129]T[178]0[164]1000:[130]:[151]53371,0 1100 [141]1580:[153]S$;:[137]1000 1110 [139]MP[178]1978[167]MP[178]1089:[141]1540 1120 [151]MP,F[170]64:[151]MP[170]54272,13:[151]MP[170]3,T[170]64:[151]MP[170]54275,13 1130 MP[178]MP[170]40:[139]MP[178]1969[167]MP[178]1098 1140 [137]1250 1150 : 1160 [143] COMPUTER MOVE 1170 : 1180 P[178]1824:[141]1580:[153]S$;:P[178]1864:[141]1580:[153]S$; 1190 F[178]F(M):F$[178][199](F[170]192):P[178]1828:[141]1580:[153]"CONT(null)OVE ASCROM: "F$; 1200 T[178]T(M):T$[178][199](T[170]192):P[178]1869:[141]1580:[153]"CONT(null)OVE (null)O: "T$; 1210 [151]53370,0:[129]I[178]1[164]500:[130]:[151]53371,0:[137]1110 1220 : 1230 [143] POSITION KNIGHT 1240 : 1250 [129]I[178]X(F)[164]X(T)[169]([180](X(T)[171]X(F))):[151]S[170]2[172]S(F),I:[130] 1260 [129]I[178]Y(F)[164]Y(T)[169]([180](Y(T)[171]Y(F))):[151]S[170]2[172]S(F)[170]1,I:[130] 1270 M[178]M[170]1:S(T)[178]S(F):S(F)[178]0:[139]CM[178]1[167][151]53370,0:[129]I[178]1[164]1000:[130]:[151]53371,0 1280 : 1290 [143] END OF GAME CHECK 1300 : 1310 [139]S(1)[172]S(3)[179][177]12[176]S(6)[172]S(8)[179][177]2[167]990 1320 P[178]1824:[141]1580:[139]CM[178]0[167][153]"LIST LENONGRATULATIONS!":[137]1342 1330 [153]"LIST " 1342 [151]204,1:[151]214,20:[153]:[153][163]4)"CONT(1CONT) ATNGAIN " 1344 [153][163]4)"(2CONT) (null)O (null)(null)ATN(null)(null)(null)" 1346 [151]198,0 1348 [161]A$:[139]A$[178]""[167]1348 1350 [151]S[170]21,0:[139]A$[178]"1"[167][153]"LOAD":[138]350 1352 [139]A$[178]"2"[167]4000 1354 [137]1348 1370 : 1380 [143] SPRITE CREATION SUBROUTINE 1390 : 1400 S[178]53248:[129]I[178]0[164]126:[135]N:[151]832[170]I,N:[130] 1410 [151]2041,14:[151]2042,14:[151]2043,14:[151]2044,14:[151]2045,13:[151]2046,13 1420 [151]S[170]40,1:[151]S[170]41,1:[151]S[170]42,0:[151]S[170]43,0:[151]S[170]44,0:[151]S[170]45,1 1430 [142] 1440 : 1450 [143] GET SUBROUTINE 1460 : 1470 [151]198,0:[151]204,0:[151]207,0:[153]""; 1480 [161]G$:[139]G$[178]""[167]1480 1482 [139]G$[177][178]"A"[175]G$[179][178]"J"[167]H$[178][199]([198](G$)[170]128):[137]1500 1484 [139]G$[178]"Q"[167]1342 1490 [137]1470 1500 [153]""H$:[151]204,1:[142] 1510 : 1520 [143] ERASE MOVES SUBROUTINE 1530 : 1540 P[178]1088:[129]I[178]1[164]22:[141]1580:[153]" ":P[178]P[170]40:[130]:[142] 1550 : 1560 [143] CURSOR POSITION SUBROUTINE 1570 : 1580 P[178]P[171]1024:[153]"";:PY[178][181](P[173]40):PX[178]P[171]40[172]PY 1590 [139]PY[179][177]0[167][129]PP[178]1[164]PY:[153]"";:[130] 1600 [139]PX[179][177]0[167][129]PP[178]1[164]PX:[153]"";:[130] 1610 P[178]P[170]1024:[142] 1620 : 1630 [143] DATA 1640 : 1650 [131] 0,36,0,0,189,0,0,255,0,0,255,0,0,126,0,0,126,0,0,255,0,3,255,192,0,255 1660 [131] 0,0,126,0,0,255,0,0,255,0,0,255,0,0,255,0,0,255,0,0,255,0,3,255,192 1670 [131] 15,255,240,31,255,248,31,255,248,15,255,240,0 1680 : 1690 [131] 0,0,0,0,31,192,0,127,96,0,255,112,1,247,248,1,253,252,3,255,62,3 1700 [131] 255,154,3,255,204,3,255,192,1,255,192,1,255,128,0,255,0,0,255,0,0,255 1710 [131] 0,0,255,0,1,255,128,15,255,240,31,255,248,15,255,240,0,0,0 1720 : 1730 [131] FI,CJ,ID,JE,DG,EB,GJ,BI,JC,IF,HE,AD,EJ,DI,JG,IB,GD,BE,DA,EH 1740 [131] 52,68,92,68,132,68,132,100,132,132,132,164,92,164,52,164,52,132,52,100 4000 [153]"LOAD":[151]53281,0 4010 [151]214,12:[153]:[153][163]8)"OPEN(null)OADING LENLEFT$VAL(null)(null) (null)(null)ATN(null)(null)(null)" 4020 [153]"STOP LOAD"[199](34)"B.CHESS QUARTO"[199](34)","DV 4030 [153]" RUN" 4040 [151]631,13:[151]632,13:[151]198,2:[128] 10000 D[178][194](186):N$[178]"KNIGHTS QUAD":[159]15,D,15,"S0:"[170]N$:[160]15:[148]N$,D:[128]